home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / Font / s / Font03 < prev    next >
Text File  |  1995-08-26  |  810b  |  35 lines
  1. ; Author: Copyright 1993 Shaun Blackmore
  2.  
  3.         GET     ^.h.regdefs
  4.         GET     ^.h.swinos
  5.         GET     ^.h.macros
  6.  
  7. ; os_error *Font_ReadDefn(FontHandle font, FontDefn *defn);
  8.  
  9. ;       r0=font
  10. ;       r1=pointer to definition block
  11.  
  12. ;       [r1,#0]  = Font name
  13. ;       [r1,#128] = x size
  14. ;       [r1,#132] = y size
  15. ;       [r1,#136] = x res
  16. ;       [r1,#140] = y res
  17. ;       [r1,#144] = age
  18. ;       [r1,#148] = usage
  19.  
  20.         PREAMBLE
  21.         STARTCODE Font_ReadDefn
  22. ;
  23.         STMFD   sp!, {r4,r5,r6,r7,lr}
  24.         SWI     SWI_Font_ReadDefn + XOS_Bit
  25.         STR     r2,[r1,#128]
  26.         STR     r3,[r1,#132]
  27.         STR     r4,[r1,#136]
  28.         STR     r5,[r1,#140]
  29.         STR     r6,[r1,#144]
  30.         STR     r7,[r1,#148]
  31.         MOVVC   r0,#0
  32.         LDMFD   sp!, {r4,r5,r6,r7,pc}^
  33. ;
  34.         END
  35.